home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Utilities / Text Utilities / Font list 1.0 / card_3528.txt < prev    next >
Encoding:
Text File  |  1988-04-07  |  2.5 KB  |  105 lines
  1. -- card: 3528 from stack: in.0
  2. -- bmap block id: 3000
  3. -- flags: 0000
  4. -- background id: 3325
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=353 top=143 right=165 bottom=453
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Font list
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put fontList() into card field "Font List"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (field)
  28. -- low flags: 00
  29. -- high flags: 2007
  30. -- rect: left=18 top=238 right=317 bottom=312
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 9
  36. -- style flags: 0
  37. -- line height: 12
  38. -- part name: Font List
  39.  
  40.  
  41. -- part 3 (button)
  42. -- low flags: 00
  43. -- high flags: A003
  44. -- rect: left=353 top=107 right=129 bottom=453
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: See script
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   edit script of bkgnd
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 5 (field)
  61. -- low flags: 01
  62. -- high flags: 2004
  63. -- rect: left=18 top=59 right=236 bottom=312
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 3
  68. -- text size: 9
  69. -- style flags: 0
  70. -- line height: 12
  71. -- part name: 
  72.  
  73.  
  74. -- part 6 (button)
  75. -- low flags: 00
  76. -- high flags: A003
  77. -- rect: left=353 top=178 right=200 bottom=453
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Next card
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   go to card 2
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part contents for card part 5
  94. ----- text -----
  95. This stack contains a script which constructs a list of the fonts and font sizes in the currently active system.  If you click on "Font list" it will show the fonts and their sizes that are installed in your system in the scrolling box below.
  96.  
  97. The next card uses this function "fontList" to simulate the text selection box used by HyperCard.  You might want to use this to allow a user to select the font, size, etc. for a field without having your script lose control to the dialog box.
  98.  
  99. This stack is messageware.  Please send me a message if you find it useful or if you have suggestions.  This would be a good function to write as an XFCN (hint, hint, all you ROM and system programmers).
  100.  
  101.  
  102.  
  103.  
  104.  
  105.